home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / demotod / demoapp.frm < prev    next >
Text File  |  1995-06-09  |  5KB  |  178 lines
  1. VERSION 2.00
  2. Begin Form DemoApp 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Tip of the Day Demo"
  6.    ClientHeight    =   2430
  7.    ClientLeft      =   2295
  8.    ClientTop       =   2940
  9.    ClientWidth     =   5115
  10.    Height          =   3120
  11.    Left            =   2235
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   2430
  14.    ScaleWidth      =   5115
  15.    Top             =   2310
  16.    Width           =   5235
  17.    Begin VBini VBini 
  18.       Entry           =   ""
  19.       FileName        =   ""
  20.       Left            =   60
  21.       Section         =   ""
  22.       String          =   ""
  23.       Top             =   1920
  24.    End
  25.    Begin Label Label2 
  26.       Alignment       =   2  'Center
  27.       BackColor       =   &H00C0C0C0&
  28.       Caption         =   "Otherwise, you will experience bad karma..."
  29.       ForeColor       =   &H00FF0000&
  30.       Height          =   195
  31.       Index           =   6
  32.       Left            =   60
  33.       TabIndex        =   7
  34.       Top             =   2160
  35.       Width           =   4995
  36.    End
  37.    Begin Label Label2 
  38.       Alignment       =   2  'Center
  39.       BackColor       =   &H00C0C0C0&
  40.       Caption         =   "If you find this code useful...."
  41.       ForeColor       =   &H00FF0000&
  42.       Height          =   195
  43.       Index           =   5
  44.       Left            =   60
  45.       TabIndex        =   6
  46.       Top             =   1920
  47.       Width           =   4995
  48.    End
  49.    Begin Label Label2 
  50.       Alignment       =   2  'Center
  51.       BackColor       =   &H00C0C0C0&
  52.       Caption         =   "United States"
  53.       ForeColor       =   &H00000000&
  54.       Height          =   195
  55.       Index           =   4
  56.       Left            =   60
  57.       TabIndex        =   5
  58.       Top             =   1680
  59.       Width           =   4995
  60.    End
  61.    Begin Label Label2 
  62.       Alignment       =   2  'Center
  63.       BackColor       =   &H00C0C0C0&
  64.       Caption         =   "Monessen, PA 15062"
  65.       ForeColor       =   &H00000000&
  66.       Height          =   195
  67.       Index           =   3
  68.       Left            =   60
  69.       TabIndex        =   4
  70.       Top             =   1440
  71.       Width           =   4995
  72.    End
  73.    Begin Label Label2 
  74.       Alignment       =   2  'Center
  75.       BackColor       =   &H00C0C0C0&
  76.       Caption         =   "30 Knox Ave."
  77.       ForeColor       =   &H00000000&
  78.       Height          =   195
  79.       Index           =   2
  80.       Left            =   60
  81.       TabIndex        =   3
  82.       Top             =   1200
  83.       Width           =   4995
  84.    End
  85.    Begin Label Label2 
  86.       Alignment       =   2  'Center
  87.       BackColor       =   &H00C0C0C0&
  88.       Caption         =   "The GUI Guys"
  89.       ForeColor       =   &H00000000&
  90.       Height          =   195
  91.       Index           =   1
  92.       Left            =   60
  93.       TabIndex        =   2
  94.       Top             =   960
  95.       Width           =   4995
  96.    End
  97.    Begin Label Label2 
  98.       Alignment       =   2  'Center
  99.       BackColor       =   &H00C0C0C0&
  100.       Caption         =   "Please send $5.00 to:"
  101.       ForeColor       =   &H000000FF&
  102.       Height          =   195
  103.       Index           =   0
  104.       Left            =   60
  105.       TabIndex        =   1
  106.       Top             =   720
  107.       Width           =   4995
  108.    End
  109.    Begin Label Label1 
  110.       BackColor       =   &H00C0C0C0&
  111.       Caption         =   "Tip of the Day Demo"
  112.       FontBold        =   -1  'True
  113.       FontItalic      =   -1  'True
  114.       FontName        =   "MS Sans Serif"
  115.       FontSize        =   24
  116.       FontStrikethru  =   0   'False
  117.       FontUnderline   =   0   'False
  118.       ForeColor       =   &H00FF0000&
  119.       Height          =   615
  120.       Left            =   60
  121.       TabIndex        =   0
  122.       Top             =   60
  123.       Width           =   4995
  124.    End
  125.    Begin Menu mnuFile 
  126.       Caption         =   "&File"
  127.       Begin Menu mnuEdit 
  128.          Caption         =   "&Edit Tips"
  129.       End
  130.       Begin Menu mnuBar 
  131.          Caption         =   "-"
  132.       End
  133.       Begin Menu mnuExit 
  134.          Caption         =   "E&xit"
  135.       End
  136.    End
  137.    Begin Menu mnuHelp 
  138.       Caption         =   "&Help"
  139.       Begin Menu mnuTip 
  140.          Caption         =   "&Tip of the Day"
  141.       End
  142.    End
  143. End
  144. Option Explicit
  145.  
  146. Sub Form_Load ()
  147.  
  148.     VBIni.FileName = App.Path + "\DemoApp.INI"
  149.     VBIni.Section = "TOD"
  150.     VBIni.Entry = "TipStart"
  151.     VBIni.String = ""
  152.     VBIni.Refresh
  153.  
  154.     If Trim$(VBIni.String) = "" Then
  155.         DemoTOD.Show 1
  156.     End If
  157.  
  158. End Sub
  159.  
  160. Sub mnuEdit_Click ()
  161.  
  162.     DemoTipEdit.Show 1
  163.  
  164. End Sub
  165.  
  166. Sub mnuExit_Click ()
  167.  
  168.     End
  169.  
  170. End Sub
  171.  
  172. Sub mnuTip_Click ()
  173.  
  174.     DemoTOD.Show 1
  175.  
  176. End Sub
  177.  
  178.